;Start of program
	XPROG
	0.
		;Initialization - AFFIX driver_grasp to driver_tip
	XPUSH
	L1
	XAFFIX
		;DRIVER_TIP
	16
		;DRIVER_GRASP
	15
	2000
		;.DRIVER_TRANS
	17
		;Init (cont) - AFFIX moving_jaw to fixed_jaw
		;		Wait till VISE is ready
		;End of Initialization
		;BLOCK
		;Print
	XPRINT
	L2
	XPRINT
	L3
	XPRINT
	L4
	XPRINT
	L5
	XPRINT
	L6
	XPRINT
	L7
		;End of BLOCK
	XENDP
		;End of program
		;Program constants
		;Scalar constants
		;Vector constants
		;Rotation constants
		;Trans constants
	3.
L1:	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.8750000
		;String constants
L7:	ASCIE ↑∀
∀
L6:	ASCIE ↑∀A∀
L5:	ASCIE ↑∀
∀
L4:	ASCIE ↑∀B∀
L3:	ASCIE ↑∀
∀
L2:	ASCIE ↑∀A∀